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The below module can be used to recover lost data or to re-sort data vhich 
is out of order. Ihis is usucdly caused 1:^ system failure or abnormal exit 
from the Mailing List program. 


** THIS BOHJETIN SUPERCEDES BULLETINS 1558-2 (OORR. 1) AND 1558-/83. 

PLEftSE DISCARD THOSE TWD BOLLETINS PffflDIftTELY WEH YOU PIACE THIS BULLETIN 

IN THE CSB MANUAL. ** 


* * * 


These line ciuuiges are optional. 


* * * 


SOiWtIffiQ 


THIS MDDUIE NQRKS FOR 3.0 AND PRIOR PROGRAMS. 

1. Enter the following program in BASIC. 

5200 aS:TN=l:P=^J 

52ljj PRINrTAB(20)"** FILE RBOOVERY **" 

5220 PC»£HZtoCP:V(Q,0)=0:V(Q,l)=0:NEXT 

5230 PRIlire320,"** RECORD NUMBER :"TN 

5240 J’=TN:GOSUB1840:GOSUB1900:GO6UB1910 

5250 IFEl$X3m$(31)ANDE0$<aiR$(128)THEH5270 

5260 F=F+l:V(TN,j3 )=-TN:V{TH,l)=-TN:QOrro5280 

5270 PEH3:GOSUB3240:GOSUB5300:PE=1:GO6UB3240:GOSUB5300 

5280 TN=<nW-l:IFTN<aPTHEN5230E[SEN=TN-F-l 

5290 GOSUB1790:CIOSE:GOSUB1740:J=1:GOSUB1840:GOTD210 

5300 FORY=TN+lTEtt>TSTEP-l:V(Y,PE)=V(y-l,PE) :NEXT 

53ljZl V(PT,PE)=TH:RETURN 

2. SAVE the module by typing SAVE "RBOOVBR/ASC",A 

3. Type: IOAD''MLS'' and press <EMTro> 

4. Type: MERGE"ttB00VER/ASC" euid press <E1IIBR> 

5. Type: HUN and press <EXirBR> 
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